home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)t6.d64 / joystick.proc < prev    next >
Text File  |  2007-02-28  |  448b  |  31 lines
  1. 9000 PROC JOYSTICK(P,REF D,REF F) CLOSED
  2. 9010 IF P=1 THEN
  3. 9020 M:=PEEK(56321)
  4. 9030 ELIF P=2 THEN
  5. 9040 M:=PEEK(56320)
  6. 9050 ELSE 
  7. 9060 RETURN
  8. 9070 ENDIF 
  9. 9080 F:=1-((M MOD 32) DIV 16)
  10. 9090 CASE 15-(M MOD 16) OF
  11. 9100 WHEN 1
  12. 9110 D:=1
  13. 9120 WHEN 2
  14. 9130 D:=5
  15. 9140 WHEN 4
  16. 9150 D:=7
  17. 9160 WHEN 5
  18. 9170 D:=8
  19. 9180 WHEN 6
  20. 9190 D:=6
  21. 9200 WHEN 8
  22. 9210 D:=3
  23. 9220 WHEN 9
  24. 9230 D:=2
  25. 9240 WHEN 10
  26. 9250 D:=4
  27. 9260 OTHERWISE 
  28. 9270 D:=0
  29. 9280 ENDCASE 
  30. 9290 ENDPROC JOYSTICK
  31.